home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / db3plsar.arc / INACTIVE.PRG < prev    next >
Encoding:
Text File  |  1986-08-04  |  1011 b   |  44 lines
  1. *********************(INACTIVE.PRG)
  2. CLEA
  3. USE CUST
  4. STORE CTOD('  /  /  ') TO MDATE
  5. STORE 0 TO NUMB
  6. SET CONFIRM ON
  7. @ 10,0 SAY 'This will view inactive customers and give you the ì
  8. option of taking'
  9. @ 11,0 SAY 'them out of the active customer database.'
  10. @ 12,0 SAY 'You will also be able to print a list of customers that are inactive.'
  11. @ 15,15 SAY 'From what date should I look backwards? 'GET MDATE
  12. READ
  13. SET TALK ON
  14. @ 15,0 CLEA
  15. @ 15,5 SAY MDATE
  16. COUNT TO NUMB FOR NEWDATE<MDATE
  17. SET TALK OFF
  18. ?
  19. ?
  20. ? NUMB
  21. WAIT
  22. CLEA
  23. GO TOP
  24. DISPLAY ALL OFF ACCT,NAME,ADDRESS,NEWDATE FOR NEWDATE<MDATE
  25. STORE 'Y' TO OPTION
  26. DO WHILE .T.
  27.    @ 23,0 CLEA
  28.    WAIT '             Are there any of these you want to take out? ' ì
  29. TO OPTION
  30.    IF OPTION<>'Y'
  31.       RETURN
  32.    ENDIF
  33.    IF OPTION='Y'
  34.       STORE '    ' TO WHO
  35.       @ 24,0 CLEA
  36.       @ 24,0 SAY 'What account please ? ' GET WHO
  37.       READ
  38.       USE INACTIVE
  39.       APPE FROM CUST FOR ACCT=WHO
  40.       STORE ' ' TO OPTION
  41.    ENDIF
  42. ENDDO
  43. RETURN
  44.